use XML::RPC;
use Data::Dumper;

my $xmlrpc = XML::RPC->new('http://aapugr.wordpress.com/xmlrpc.php');
my $result = $xmlrpc->call("metaWeblog.getRecentPosts", 1,'aapugr', 'xxx',2 );

print Dumper $result;

print "modificando ... ";
print "...";
print "...";
print "...";
my $resultado;
$resultado = $xmlrpc->call("metaWeblog.editPost", $result->[1]{'postid'},'aapugr', 'ugr_aap', {'title'=>$result->[1]{'title'},'description' => "Cambiando de nuevo"}, 1 ) ;

print "Modificación";
print "-----------------------";
print Dumper $resultado;
print "...";
print "...";
print "...";
